(popup-menu): Stupid typo.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d5ae00fb872fa3857956aaf1be0288a68a21c68d..7b9debc7b09a83187caaee081d79bb0edf30c666 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -55,9 +55,9 @@ PREFIX is the prefix argument (if any) to pass to the command."
               ((keymapp menu) menu)
               ((and (listp menu) (keymapp (car menu))) menu)
               (t (let* ((map (easy-menu-create-menu (car menu) (cdr menu)))
-                      (filter (when (symbolp map)
-                                (plist-get (get map 'menu-pro) :filter))))
-                 (if filter (funcall filter (symbol-function map)) map)))))
+                        (filter (when (symbolp map)
+                                  (plist-get (get map 'menu-prop) :filter))))
+                   (if filter (funcall filter (symbol-function map)) map)))))
         event cmd)
     (unless position
       (let ((mp (mouse-pixel-position)))